home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / tunes.arc / BELLEQUI.BAS (.txt) next >
Encoding:
GW-BASIC  |  1985-02-28  |  2.3 KB  |  62 lines
  1. 10  CLS:KEY OFF:COLOR 3,0,8
  2. 20  LOCATE 12,7:PRINT "'Belle qui tiens ma vie' by Thoinot Arbeau (OrchFORsographie, 1588)"
  3. 30  DEFINT A-Z
  4. 40  H=12:Q=6:E=3
  5. 50  PLAY "t180 l56 ml"
  6. 60  FOR R=1 TO 2
  7. 70  FOR I=1 TO H:PLAY "o3gdo2b-g":NEXT:PLAY "n0"
  8. 80  FOR I=1 TO Q:PLAY "o3gdo2b-g":NEXT:PLAY "n0"
  9. 90  FOR I=1 TO Q:PLAY "o3f+do2ad":NEXT:PLAY "n0"
  10. 100  FOR I=1 TO Q:PLAY "o3gdo2b-g":NEXT:PLAY "n0"
  11. 110  FOR I=1 TO Q:PLAY "o3afco2f":NEXT:PLAY "n0"
  12. 120  FOR I=1 TO H:PLAY "o3b-fdo1b-":NEXT:PLAY "n0"
  13. 130  FOR I=1 TO Q:PLAY "o3b-fdo1b-":NEXT:PLAY "n0"
  14. 140  FOR I=1 TO Q:PLAY "o4do3fo2b-o1b-":NEXT:PLAY "n0"
  15. 150  FOR I=1 TO Q:PLAY "o4co3eo2gc":NEXT:PLAY "n0"
  16. 160  FOR I=1 TO Q:PLAY "o3b-fdo2d":NEXT:PLAY "n0"
  17. 170  FOR I=1 TO Q:PLAY "o3b-gco2e-":NEXT:PLAY "n0"
  18. 180  FOR I=1 TO Q:PLAY "o3afco2f":NEXT:PLAY "n0"
  19. 190  FOR I=1 TO H:PLAY "o3b-fo2b-o1b-":NEXT:PLAY "n0"
  20. 200  FOR I=1 TO H:PLAY "o3gdo2b-g":NEXT:PLAY "n0"
  21. 210  FOR I=1 TO Q:PLAY "o3gdo2b-g":NEXT:PLAY "n0"
  22. 220  FOR I=1 TO Q:PLAY "o3f+do2ad":NEXT:PLAY "n0"
  23. 230  FOR I=1 TO Q:PLAY "o3gdo2b-g":NEXT:PLAY "n0"
  24. 240  FOR I=1 TO Q:PLAY "o3afco2f":NEXT:PLAY "n0"
  25. 250  FOR I=1 TO H:PLAY "o3b-fdo1b-":NEXT:PLAY "n0"
  26. 260  FOR I=1 TO Q:PLAY "o3b-fdo1b-":NEXT:PLAY "n0"
  27. 270  FOR I=1 TO Q:PLAY "o4do3fo2b-o1b-":NEXT:PLAY "n0"
  28. 280  FOR I=1 TO Q:PLAY "o4co3eo2gc":NEXT:PLAY "n0"
  29. 290  FOR I=1 TO Q:PLAY "o3b-fdo2d":NEXT:PLAY "n0"
  30. 300  FOR I=1 TO Q:PLAY "o3b-gco2e-":NEXT:PLAY "n0"
  31. 310  FOR I=1 TO Q:PLAY "o3afco2f":NEXT:PLAY "n0"
  32. 320  FOR I=1 TO H:PLAY "o3b-fdo1b-":NEXT:PLAY "n0"
  33. 330  FOR I=1 TO H:PLAY "o3b-fdo2b-":NEXT:PLAY "n0"
  34. 340  FOR I=1 TO Q:PLAY "o3afco2f":NEXT:PLAY "n0"
  35. 350  FOR I=1 TO Q:PLAY "o3afdo2d":NEXT:PLAY "n0"
  36. 360  FOR I=1 TO Q:PLAY "o3gdo2b-g":NEXT:PLAY "n0"
  37. 370  FOR I=1 TO Q:PLAY "o3ge-co2c":NEXT:PLAY "n0"
  38. 380  FOR I=1 TO H:PLAY "o3f+do2ad":NEXT:PLAY "n0"
  39. 390  FOR I=1 TO H:PLAY "o3dfo2b-o1b-":NEXT:PLAY "n0"
  40. 400  FOR I=1 TO E:PLAY "o3eco2gc":NEXT
  41. 410  FOR I=1 TO E:PLAY "o3fco2gc":NEXT:PLAY "n0"
  42. 420  FOR I=1 TO Q:PLAY "o3gdo2b-o1g":NEXT:PLAY "n0"
  43. 430  FOR I=1 TO Q:PLAY "o3gdo2ad":NEXT:PLAY "n0"
  44. 440  FOR I=1 TO Q:PLAY "o3f+do2ad":NEXT:PLAY "n0"
  45. 450  FOR I=1 TO H:PLAY "o3go2bgo1g":NEXT:PLAY "n0"
  46. 460  FOR I=1 TO H:PLAY "o3b-o2b-do1b-":NEXT:PLAY "n0"
  47. 470  FOR I=1 TO Q:PLAY "o3afco2f":NEXT:PLAY "n0"
  48. 480  FOR I=1 TO Q:PLAY "o3afdo2d":NEXT:PLAY "n0"
  49. 490  FOR I=1 TO Q:PLAY "o3gdo2b-g":NEXT:PLAY "n0"
  50. 500  FOR I=1 TO Q:PLAY "o3ge-co2c":NEXT:PLAY "n0"
  51. 510  FOR I=1 TO H:PLAY "o3f+do2ad":NEXT:PLAY "n0"
  52. 520  FOR I=1 TO H:PLAY "o3dfo2b-o1b-":NEXT:PLAY "n0"
  53. 530  FOR I=1 TO E:PLAY "o3eeo2ac":NEXT
  54. 540  FOR I=1 TO E:PLAY "o3feo2ac":NEXT:PLAY "n0"
  55. 550  FOR I=1 TO Q:PLAY "o3gdo2b-o1g":NEXT:PLAY "n0"
  56. 560  FOR I=1 TO Q:PLAY "o3gdo2ad":NEXT:PLAY "n0"
  57. 570  FOR I=1 TO Q:PLAY "o3f+do2ad":NEXT:PLAY "n0"
  58. 580  FOR I=1 TO H*2:PLAY "o3gdo2go1g":NEXT:PLAY "n0"
  59. 590  PLAY "p2"
  60. 600  NEXT R
  61. 610  CLS:LOCATE 12,12:PRINT "Thank you.":LOCATE 23,1:INPUT "PLAY AGAIN  (Y/N)";Q$:IF Q$="Y" THEN RUN ELSE RUN "MENU.BAS"
  62.